home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Libraries / GUSI 1.4.1 / GUSI / Internalize < prev    next >
Encoding:
Text File  |  1994-05-01  |  1.7 KB  |  73 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}; Exit 
  2.  
  3. #!/usr/local/bin/perl
  4. #######################################################################
  5. #    Project    :    GUSI                -    Grand Unified Socket Interface
  6. #    File        :    Internalize.pl    -    Delete internal names
  7. #    Author    :    Matthias Neeracher
  8. #    Language    :    Perl
  9. # 
  10. #  $Log: Internalize,v $
  11. #  Revision 1.1  1994/02/25  01:24:25  neeri
  12. #  Initial revision
  13. #
  14. #  Revision 1.1  1994/02/25  01:24:25  neeri
  15. #  Initial revision
  16. #
  17. #    Revision 0.5  1993/08/09  00:00:00  neeri
  18. #    Report missing externals
  19. #    
  20. #    Revision 0.4  1993/06/01  00:00:00  neeri
  21. #    Allow Socket:: SocketDomain:: and DeviceSocketDomain:: to stay
  22. #    
  23. #    Revision 0.3  1993/02/07  00:00:00  neeri
  24. #    Allow GUSIwith… 
  25. #    
  26. #    Revision 0.2  1992/11/15  00:00:00  neeri
  27. #    Allow FSp and FSSpec
  28. #    
  29. #    Revision 0.1  1992/10/18  00:00:00  neeri
  30. #    Separate strict variant
  31. #    
  32. #######################################################################
  33.  
  34. open(EXT, "GUSI.ext")     || die "Can't open file \"GUSI.ext\"";
  35. open(DN,     ">GUSI.dn")    || die "Can't open file \"GUSI.dn\"";
  36. open(DNC, ">GUSI_C.dn")    || die "Can't open file \"GUSI_C.dn\"";
  37.  
  38. while (<EXT>)    {
  39.     chop;
  40.     $Extern{$_} = 1;
  41. }
  42.  
  43. while (<>)    {
  44.     @F = split;
  45.     
  46.     next     unless    $F[4] eq "ext";
  47.  
  48.     if ($Extern{$F[0]}) {
  49.         $Extern{$F[0]} = -1;
  50.         
  51.         next;
  52.     }
  53.  
  54.     next    if            $F[0] =~ /GUSI/;
  55.     
  56.     if (($F[0] =~ /__9TFileSpec/) 
  57.      || ($F[0] =~ /__7Feature/) 
  58.      || ($F[0] =~ /__6Socket/) 
  59.      || ($F[0] =~ /__12SocketDomain/) 
  60.      || ($F[0] =~ /__18DeviceSocketDomain/) 
  61.      || ($F[0] =~ /PPCSocket/)
  62.      || ($F[0] =~ /FSp/) 
  63.      || ($F[0] =~ /2FSSpec/)
  64.     ) {
  65.         print DNC "-dn $F[0]\n";
  66.     } else {
  67.         print DN "-dn $F[0]\n";
  68.     }
  69. }
  70.  
  71. foreach $i (sort keys Extern) {
  72.     print STDERR "Function \"$i\" apparently not implemented!\n" unless ($Extern{$i} == -1);
  73. }